unit upasclientcashdrawer;
{$I LogOption.txt}

interface
uses
  upasclientsocashdrawer;

type
  EOupasclientcashdrawer = class(EOupasclientsocashdrawer)
  public
    constructor Create(Device_Name: String);
    destructor Destroy; override;

  end;

implementation
{$IFDEF LOGUNITTEST}
uses
  AuditLog;
{$ENDIF}

constructor EOupasclientcashdrawer.Create(Device_Name: String);
begin
  {$IFDEF LOGUNITTEST}
  AuditLog.EventLog(AuditLog.etDUNIT, EOupasclientcashdrawer.ClassName + '.Create', 'DeviceName="' + DeviceName + '"');
  {$ENDIF}

  Inherited Create(Device_Name);

end;

destructor EOupasclientcashdrawer.Destroy;
begin
  Inherited;

  {$IFDEF LOGUNITTEST}
  AuditLog.EventLog(AuditLog.etDUNIT, EOupasclientcashdrawer.ClassName + '.Destroy', '');
  {$ENDIF}
end;

end.
